home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-websites-
/
wirenet
/
files
/
wirenet151.lzx
/
Updates
/
ParseThor
< prev
next >
Wrap
Text File
|
1999-05-10
|
2KB
|
58 lines
/* $VER: ParseThor 1.51 (15.09.96) by Neil Bothwick */
/* */
/* Imports downloaded news and mail into Thor */
/* Change these to suit your setup */
System = 'Wirenet' /* The name of your Internet system in Thor */
/* Don't change anything below here */
options results
address command
if ~show('p', 'BBSREAD') then do
'run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead'
'WaitForPort BBSREAD'
end
if ~show('L','rexxsupport.library') then
if ~addlib('rexxsupport.library',0,-30) then exit
if ~show('L','rexxdossupport.library') then
if ~addlib('rexxdossupport.library',0,-30) then exit
drop BBS. /* Get the path fo System data */
address BBSREAD
GETBBSDATA '"'System'"' stem BBS
SystemDir = BBS.BBSPATH
TempDir = SystemDir'tcp_tmp'
TempBak = SystemDir'tcp_tmp.bak'
address command
/* Make backup copy of batch and progress files */
if exists(TempDir) then do
if ~exists(TempBak) then 'makedir' TempBak
'copy' TempDir'/#? to' TempBak 'QUIET'
end
/* Unbatch news and mail */
if exists(TempDir'/m.0') then do
if word(statef(TempDir'/m.0'),2) >0 then do
say 'Unbatching mail/news...'
GetVar('Thor/ThorPath')||'bin/GetTCP BBSNAME' System 'SOCKETS 10 PUBSCREEN Workbench PARSEONLY'
'setenv NewMail TRUE'
end
else 'unsetenv NewMail'
end
do i=0 to 9
if exists(TempDir'/n.'i) then do
say 'Unbatching news...'
GetVar('Thor/ThorPath')||'bin/GetTCP BBSNAME' System 'SOCKETS 10 PUBSCREEN Workbench PARSEONLY'
end
end
exit